home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / programming / other / gui4cli / demo.gc next >
Text File  |  1997-12-12  |  3KB  |  110 lines
  1. G4C
  2.  
  3. WINBIG -1 -1 310 164 Demo.gc
  4. WinType 11110001
  5. varpath ''
  6.  
  7. xOnLoad
  8. ifexists assign guis:
  9.    ; ok
  10. else
  11.    extract demo.gc guipath g4cpath
  12.    assign guis: $g4cpath
  13.    cli 'c:path guis:c add'
  14. endif
  15. GuiOpen Demo.gc
  16.  
  17. xOnClose
  18. guiclose demo.gc
  19. setgad demo.gc 20 ON
  20.  
  21. xAppIcon -1 -1 guis:Gui4Cli 'G4C Demo' '' OFF
  22. gadid 20
  23. guiopen demo.gc
  24. setgad demo.gc 20 OFF
  25.  
  26. xOnRMB
  27. Status
  28.  
  29.  
  30. BOX 0 0 0 0 out button
  31. ICON 219 9 guis:gui4cli
  32. CTEXT 15 9 "Might as well.." #screen 8 2 0 "0011"
  33.  
  34. TEXT 12 24 195 15 "Read the ReadMe" 40 BOX
  35. gadid 1
  36. XBUTTON 210 24 91 15 "ReadMe"
  37. update demo.gc 1 Loading...
  38. *FILENAME = guis:readme.now
  39. guiload guis:tools/read.gc
  40. Update demo.gc 1 'Read the ReadMe'
  41.  
  42. TEXT 12 39 195 15 "Read the Guide" 40 BOX
  43. gadid 2
  44. XBUTTON 210 39 91 15 "Guide"
  45. update demo.gc 2 Loading...
  46. run 'multiview guis:docs/Gui4Cli.guide'
  47. update demo.gc 2 'Read the Guide'
  48.  
  49. TEXT 12 54 195 15 "Run the File Manager" 40 BOX
  50. gadid 3
  51. XBUTTON 210 54 91 15 "Dir.gc"
  52. update demo.gc 3 Loading...
  53. guiload guis:dir/dir.gc
  54. update demo.gc 3 'Run the File Manager'
  55.  
  56. TEXT 12 69 195 15 "Search for Files" 40 BOX
  57. gadid 21
  58. XBUTTON 210 69 91 15 "FSearch.gc"
  59. update demo.gc 21 Loading...
  60. guiload guis:g4c/fsearch/fsearch.gc
  61. update demo.gc 21 'Search for Files'
  62.  
  63. TEXT 12 84 195 15 "Replace text in files" 40 BOX
  64. gadid 22
  65. XBUTTON 210 84 91 15 "Rep.gc"
  66. update demo.gc 22 Loading...
  67. guiload guis:g4c/rep.gc
  68. update demo.gc 22 'Replace text in files'
  69.  
  70. TEXT 12 99 195 15 "Read a Guide fast" 40 BOX
  71. gadid 6
  72. XBUTTON 210 99 91 15 "FastRead"
  73. update demo.gc 6 Loading...
  74. guiload guis:tools/fastread/fastread.gc
  75. update demo.gc 6 'Read a Guide fast'
  76.  
  77. TEXT 12 114 195 15 "Change the Palette" 40 BOX
  78. gadid 5
  79. XBUTTON 210 114 91 15 "Palette"
  80. update demo.gc 5 Loading...
  81. guiload guis:tools/palette.gc
  82. update demo.gc 5 'Change the Palette'
  83.  
  84. TEXT 12 129 195 15 "Look at the Tutorials" 40 BOX
  85. gadid 4
  86. XBUTTON 210 129 91 15 "Tutorials"
  87. update demo.gc 4 Loading...
  88. guiload guis:docs/tutorials.gc
  89. update demo.gc 4 'Look at the Tutorials'
  90.  
  91. TEXT 12 144 195 15 "Make a Gui.." 40 BOX
  92. gadid 7
  93. XBUTTON 210 144 91 15 "GuiEdit"
  94. update demo.gc 7 Loading...
  95. guiname = ''
  96. ReqFile -1 -1 300 200 "Enter GUI Name:" LOAD guiname 'ram:'
  97. if $guiname > ''
  98.    ifexists file $guiname    ; chose existing gui
  99.        ;
  100.    else
  101.        extract guiname file name
  102.        .dummy = 'G4C\n\nWinBig -1 -1 200 100 $name\nWinType 11110001\n\nxOnLoad\nGuiOpen $name\n\nxOnClose\nGuiQuit $name\n\n'
  103.        copy env:.dummy $guiname
  104.    endif
  105.    guiload guis:tools/guiedit.gc
  106.    guiload $guiname
  107. endif
  108. update demo.gc 7 'Make a Gui..'
  109.  
  110.